program TestuAPI;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  _Environment in 'C:\Bastie.de\software\uapi\delphi\uapi\_Environment.pas';




procedure namenAllerUmgebungsvariablen ()  ;
var
  env : Environment;
  envNames : array of string;
  index : Integer;
begin
  env := Environment.new ();
  envNames := env.getNames ();
  for index := 0 to high (envNames) do
  begin
    Writeln(envNames[index]);
  end;
  env.Free ();
end;

procedure wertEinerUmgebungsvariablen ();
var
  env : Environment;
begin
  env := Environment.new ();
  writeln (env.getValue('temp'));
  env.Free ();
end;

begin
  namenAllerUmgebungsvariablen ();
  wertEinerUmgebungsvariablen ();
end.
